'##############
'Kasa
'##############

'Needs:
'- IBIS-2

'- Daniel94
'- Marty515
'--------------------------------------------------------------------------------------
{trigger:kasa_menu}
	1 (S.L.navigator_menu)
		(T.L.ev_IBIS_piep)


{end}





	
{macro:kasa_frame}

(L.L.cp_odpojovac_kasa) 1 =
{if}

                       
"" "@" "@" $+
	(L.L.navigator_menu)
	{if}
		1 (S.L.navigator_menu_visible)
				
		(L.L.navigator_menu_select) 0 =
		{if}
		1 (S.L.IBIS_mode)
			">" $+

		{else}
			" " $+
		{endif}
		"číslo turnusu       000" $+ (L.$.IBIS_Complex_Line) $+ "@" $+
		(L.L.navigator_menu_select) 1 =
		{if}
			2 (S.L.IBIS_mode)
			">" $+

		{else}
			" " $+
		{endif}
		"číslo linky           0000" $+ (L.L.IBIS_Route) "02" $IntToStrEnh $+ "@" $+
		
		(L.L.navigator_menu_select) 2 =
		{if}
			3 (S.L.IBIS_mode)
			">" $+

		{else}
			" " $+
		{endif}
		"číslo spoje              " $+ (L.L.IBIS_TerminusCode) "03" $IntToStrEnh $+ "@" $+
		(S.$.navigator_menu)
	{else}
		0 (S.L.navigator_menu_visible)
	{endif}
	
{else}
         0 (S.L.navigator_menu_visible)
{endif}
	

{end}





{macro:kasa_datumcas_frame}
   
   	 ""
	(L.S.Day) "02" $IntToStrEnh $+ "." $+
	(L.S.Month) "02" $IntToStrEnh $+ "." $+
	(L.S.Year) $IntToStr 2 $SetLengthR $+ "      " $+ "1" $+ "      " $+	
	(L.S.Time) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
	  l0 l1 - 60 * trunc "02" $IntToStrEnh $+ 
	  
    	(S.$.Kasa_info)
	  
	  	
	
{end}


{macro:kasa_cas_frame}
   
   	 ""	
	(L.S.Time) 3600 / s0 trunc s1 "02" $IntToStrEnh $+ ":" $+
	  l0 l1 - 60 * trunc "02" $IntToStrEnh $+ 
	  
    	(S.$.kasa_cas)
	  
	  	
	
{end}

{macro:kasa_text_frame}
   
   	 ""	
    "MANIPULACE" $+ (S.$.kasa_manupulace_txt)  
	  
	  	
	
{end}

